home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111b.d64 / demo m&t 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  49 lines
  1. 1 REM LASER - DEMO- UND STEUER-PROGRAMM
  2. 2 REM VON NIKOLAUS HEUSLER         8.91
  3. 3 REM ZWENGAUERWEG 18, 8000 MUENCHEN 71
  4. 4 :
  5. 10 IFPEEK(49155)<>3THENLOAD"LASER.CODE",8,8
  6. 20 SYS49152
  7. 100 PRINT"[147]LASER - DEMO- UND STEUERPROGRAMM
  8. 110 [153]"STEUERUNG: (+) MOTOR 1 SCHNELLER
  9. 112 PRINT"           (-) MOTOR 1 LANGSAMER
  10. 114 [153]"           (1) MOTOR 1 AN/AUS
  11. 120 PRINT"           (>) MOTOR 2 SCHNELLER
  12. 122 [153]"           (<) MOTOR 2 LANGSAMER
  13. 124 PRINT"           (2) MOTOR 2 AN/AUS
  14. 126 [153]"           (_) MOTOR 2 VOR/RUECK
  15. 128 PRINT"           ([) BREMSE HOCH
  16. 129 [153]"           (]) BREMSE RUNTER
  17. 130 PRINT"WERDEN DIE TASTEN MIT (SHIFT) BETAETIGT,
  18. 132 [153]"ONSO ERFOLGT DIE AENDERUNG IN GROESSEREN
  19. 134 PRINT"STUFEN.
  20. 136 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  21. 190 M1=85:M2=168:BR=60:S1=1:S2=1:R=1
  22. 200 PRINT"MOTOR 1: GESCHWINDIGKEIT =  ";
  23. 202 IFS1=0THENPRINT"AUS  ":GOTO210
  24. 204 PRINTM1"[157]   "
  25. 210 PRINT"MOTOR 2: GESCHWINDIGKEIT =";
  26. 212 IFS2=0THENPRINT"  AUS  ":GOTO220
  27. 214 IFR=1THENPRINT" +";:GOTO216
  28. 215 PRINT" -";
  29. 216 PRINTM2"[157]   "
  30. 220 PRINT"BREMSE:                  =  "BR"[157]   "
  31. 230 POKE6,BR:POKE2,S1:POKE3,S2*R:POKE4,M1:POKE5,M2
  32. 300 GETA$:POKE198,.
  33. 310 IFA$="+"THENM1=M1+1:IFM1>255THENM1=255
  34. 312 IFA$="[219]"THENM1=M1+16:IFM1>255THENM1=255
  35. 314 IFA$="-"THENM1=M1-1:IFM1<10THENM1=10
  36. 316 IFA$="[221]"THENM1=M1-16:IFM1<10THENM1=10
  37. 320 IFA$="."THENM2=M2+1:IFM2>255THENM2=255
  38. 322 IFA$=">"THENM2=M2+16:IFM2>255THENM2=255
  39. 324 IFA$=","THENM2=M2-1:IFM2<10THENM2=10
  40. 326 IFA$="<"THENM2=M2-16:IFM2<10THENM2=10
  41. 330 IFA$="1"THENS1=1-S1
  42. 332 IFA$="2"THENS2=1-S2
  43. 334 IFA$="_"THENR=256-R
  44. 340 IFA$=":"THENBR=BR+1:IFBR>255THENBR=255
  45. 342 IFA$="["THENBR=BR+16:IFBR>255THENBR=255
  46. 344 IFA$=";"THENBR=BR-1:IFBR<1THENBR=1
  47. 346 IFA$="]"THENBR=BR-16:IFBR<1THENBR=1
  48. 390 GOTO200
  49.